home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Magazine
/
WiredWorld
/
THOR_2.5
/
THOR_2.5a_upgrade
/
rexx
/
examples
/
FindDupes.br
< prev
next >
Wrap
Text File
|
1997-09-15
|
532b
|
32 lines
/* $VER: FindDupes.br 1.0 (5.9.95)
*
* Stub to use FINDDUPBRMSG
*
*/
parse arg arguments
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address BBSREAD
if arguments = '' then
do
GETCOMMANDINFO FINDDUPBRMSG TEMP
say 'FindDupes.br 3.1 (28.09.94)'
say 'Lets you use the FINDDUPBRMSG arexx command from CLI.'
say 'Template:' TEMP
exit
end
FINDDUPBRMSG arguments
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end